home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Hypercard / HyperCard' More / J-M / Model Airplane Design / Model Airplane Design / card_4526.txt < prev    next >
Encoding:
Text File  |  1988-04-25  |  2.0 KB  |  90 lines
  1. -- card: 4526 from stack: in
  2. -- bmap block id: 5784
  3. -- flags: 0000
  4. -- background id: 3910
  5. -- name: Wing Design
  6. ----- HyperTalk script -----
  7. on closeField
  8.   set numberFormat to "0.0"
  9.   repeat with i=1 to 10
  10.     get line 2 of field i
  11.     if it is not empty then put the value of it into line 1 of field i
  12.   end repeat
  13.   get the value of ( field 11/( field "S"/144))
  14.   put the value of it into  field 12
  15. end closeField
  16.  
  17.  
  18. -- part 13 (button)
  19. -- low flags: 00
  20. -- high flags: 0000
  21. -- rect: left=48 top=1 right=29 bottom=85
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 1012 / 1012
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: Return
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   visual effect iris close
  33.   go card ID 12483
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part contents for background part 68
  39. ----- text -----
  40. 6
  41.  
  42. -- part contents for background part 69
  43. ----- text -----
  44. 700
  45.  
  46. -- part contents for background part 72
  47. ----- text -----
  48. 25
  49.  
  50. -- part contents for background part 73
  51. ----- text -----
  52. 64.8
  53. sqrt(line 1 of field "AR"*line 1 of field "S")
  54.  
  55. -- part contents for background part 74
  56. ----- text -----
  57. 14.4
  58. (2*line 1 of field "S")/(line 1 of field "b"*(1+line 1 of field "TR"))
  59.  
  60. -- part contents for background part 75
  61. ----- text -----
  62. 7.2
  63. (line 1 of field "RC"*line 1 of field "TR")
  64.  
  65. -- part contents for background part 76
  66. ----- text -----
  67. 11.2
  68. ((line 1 of field"RC"+line 1 of field "TC")-((line 1 of field "RC"*line 1 of field "TC")/(line 1 of field "RC"+line 1 of field "TC")))*(2/3)
  69.  
  70. -- part contents for background part 77
  71. ----- text -----
  72. 14.4
  73. (line 1 of field"RC"+(2*line 1 of field"TC"))/(line 1 of field "RC"+line 1 of field "TC")*line 1 of field "b"/6
  74.  
  75. -- part contents for background part 78
  76. ----- text -----
  77. 9.5
  78. (line 1 of field "Y"*Tan(line 1 of field "SA"/57.3))+(.25*line 1 of field "MAC")
  79.  
  80. -- part contents for background part 81
  81. ----- text -----
  82. 0.5
  83.  
  84. -- part contents for background part 82
  85. ----- text -----
  86. 83.5
  87.  
  88. -- part contents for background part 83
  89. ----- text -----
  90. 17.2